Minimalizacia modalneho okna

Otázka od: Pavol Svorc

17. 12. 2002 10:07

Zdravim,
mam aplikaciu kde zobrazujem modalne formy. Ako dosiahnut aby pri
minimalizacii modalneho okna sa zminimalizovala cela aplikacia na
listu?
P.Svorc

Odpovedá: Ing. Pavel Žilinec

17. 12. 2002 10:00

Mam tuto proceduru,
procedure TNM_DM.MinMaxOkna(Message : TMessage);
begin
// Zajistim minimalizaci nebo obnovu i hlavniho okna spolecne s minimalizaci
// nebo obnovou tohoto okna
  if Message.Msg = WM_SYSCOMMAND then
    case Message.WParam of
      SC_Minimize : if Application.MainForm.WindowState <> wsMinimized then
                      Application.MainForm.WindowState := wsMinimized;
      SC_Maximize : if Application.MainForm.WindowState = wsMinimized then
                      Application.MainForm.WindowState := wsMaximized;
      SC_Restore : if Application.MainForm.WindowState <> wsNormal then
                      Application.MainForm.WindowState := wsNormal;
    end;
end;

kterou volam v nasledujici udalosti kazdeho takoveho formu
    procedure OnMinimize(var Message : TMessage); message WM_SysCommand;

--------
ing. Pavel Zilinec
MailTo:zilinec@email.cz

Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju

PS> Zdravim,
PS> mam aplikaciu kde zobrazujem modalne formy. Ako dosiahnut aby pri
PS> minimalizacii modalneho okna sa zminimalizovala cela aplikacia na
PS> listu?
PS> P.Svorc